-- background: 2571 from stack: in
-- bmap block id: 17126
-- flags: 0000
-- background id: 0
-- name: 
----- HyperTalk script -----
on openBackground
  global identification
  go to card identification

end openBackground


on goalign
  get the scroll of field "Date"
  set the scroll of field "Age" to it
  set the scroll of field "Weight" to it
  set the scroll of field "Height" to it
  set the scroll of field "Phallus Size" to it
  set the scroll of field "Growth Velocity" to it
  set the scroll of field "Bone Ages" to it
  set the scroll of field "Testes Volume" to it
  set the scroll of field "Breasts" to it
  set the scroll of field "Pubic hair" to it
end goalign

on OpenCard
  if field "units" is empty then
    put "true true" into field "units"
  end if
  get word 2 of field "units"
  if it then
    set visible of background button "cm" to true
    set visible of background button "in" to false
  else
    set visible of background button "cm" to false
    set visible of background button "in" to true
  end if
  get word 1 of field "units"
  if it then
    set visible of background button "kgs" to true
    set visible of background button "lbs" to false
  else
    set visible of background button "kgs" to false
    set visible of background button "lbs" to true
  end if
end OpenCard

on CloseCard
  put the visible of background button "cm" into units
  put " " before units
  put the visible of background button "kgs" before units
  put units into field "units"
end CloseCard



-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=241 top=317 right=342 bottom=268
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Prev
----- HyperTalk script -----
on mouseUp
  visual effect wipe right
  go to previous card
end mouseUp



-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=267 top=317 right=342 bottom=294
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Next
----- HyperTalk script -----
on mouseUp
  visual effect wipe left
  go to next card
end mouseUp



-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=475 top=314 right=342 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 1012 / 1012
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Return
----- HyperTalk script -----
on mouseUp
  visual effect iris close
  pop card
end mouseUp



-- part 8 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=0 top=313 right=342 bottom=32
-- title width / last selected line: 0
-- icon id / first selected line: 21700 / 21700
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Home
----- HyperTalk script -----
on mouseUp
  visual effect iris open
  go Home
end mouseUp



-- part 9 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=139 top=0 right=16 bottom=304
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: name


-- part 10 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=437 top=0 right=16 bottom=496
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: birth date


-- part 11 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=8 top=49 right=258 bottom=69
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 65535
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: date


-- part 12 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=79 top=49 right=258 bottom=130
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: age


-- part 13 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=139 top=49 right=258 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: weight


-- part 14 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=200 top=49 right=258 bottom=254
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: height


-- part 18 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=407 top=0 right=16 bottom=437
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: sex


-- part 21 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=305 top=0 right=16 bottom=407
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: hospital number


-- part 24 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=465 top=39 right=54 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: fh


-- part 25 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=465 top=54 right=69 bottom=504
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: mh


-- part 26 (field)
-- low flags: 01
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: growth velocity


-- part 29 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: bone ages


-- part 31 (field)
-- low flags: 00
-- high flags: 0000
-- rect: left=260 top=25 right=49 bottom=309
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 256
-- line height: 11
-- part name: title


-- part 33 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=422 top=74 right=89 bottom=443
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: minimum interval


-- part 36 (button)
-- low flags: 00
-- high flags: A004
-- rect: left=489 top=79 right=96 bottom=512
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide field "minimum interval"
  hide field "interval title"
  hide background button "ok"
  hide field "yrs conversion"
end mouseUp



-- part 37 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=442 top=74 right=89 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: interval title


-- part 38 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=422 top=88 right=101 bottom=483
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 256
-- line height: 13
-- part name: yrs conversion


-- part 41 (button)
-- low flags: 00
-- high flags: 2000
-- rect: left=30 top=316 right=342 bottom=59
-- title width / last selected line: 0
-- icon id / first selected line: 32462 / 32462
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Comments
----- HyperTalk script -----
on mousedown
  global identification
  put the mouseloc into myPlace
  put item 1 of myPlace - 13 into horiz
  put item 2 of myPlace - 100 into vert
  put field "name" && field "hospital number" into identification
  get PopUpMenu("About this stack;Instructions;Velocity Calculations;Age Calculations;Units of measure;Alignment of data", 1, vert, horiz)

  put it into Menuitem

  if menuitem is 1 then
    go card "comment 5"
  end if

  if menuitem is 2 then
    go card "comment 4"
  end if

  if menuitem is 3 then
    go card "comment 3"
  end if

  if menuitem is 4 then
    go card "comment 2"
  end if

  if menuitem is 5 then
    go card "comment1"
  end if

  if menuitem is 6 then
    go card "comment 6"
  end if

end mousedown


-- part 43 (field)
-- low flags: 80
-- high flags: 0001
-- rect: left=86 top=135 right=291 bottom=348
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: instructions


-- part 44 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=200 top=263 right=287 bottom=250
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: OK
----- HyperTalk script -----
on mouseUp
  hide field "instructions"
  hide background button id 44
end mouseUp



-- part 45 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=17 top=0 right=15 bottom=140
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: 


-- part 48 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=145 top=257 right=274 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: lbs
----- HyperTalk script -----
on mouseUp
  put the number of lines in field "date" into number
  repeat with i = 1 to number
    if line i of field "weight" is empty then next repeat
    put line i of field "weight" into weight
    set the numberFormat to "0.00"
    put (weight/2.2) into line i of field "weight"
  end repeat
  hide background button "lbs"
  show background button "kgs"
end mouseUp



-- part 49 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=145 top=257 right=274 bottom=168
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: kgs
----- HyperTalk script -----
on mouseUp

  put the number of lines in field "date" into number
  repeat with i = 1 to number
    if line i of field "weight" is empty then next repeat
    put line i of field "weight" into weight
    set the numberFormat to "0.00"

    put (weight*2.2) into line i of field "weight"
  end repeat
  hide background button "kgs"
  show background button "lbs"
end mouseUp



-- part 50 (button)
-- low flags: 80
-- high flags: 8000
-- rect: left=206 top=257 right=274 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: in
----- HyperTalk script -----
on mouseUp
  put the number of lines in field "date" into number
  repeat with i = 1 to number
    if line i of field "height" is empty then next repeat
    put line i of field "height" into height
    set the numberFormat to "0.00"

    put (height*2.54) into line i of field "height"
  end repeat

  hide background button "in"
  show background button "cm"

end mouseUp



-- part 51 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=206 top=257 right=274 bottom=229
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: cm
----- HyperTalk script -----
on mouseUp
  put the number of lines in field "date" into number
  repeat with i = 1 to number
    if line i of field "height" is empty then next repeat
    put line i of field "height" into height
    set the numberFormat to "0.00"

    put (height/2.54) into line i of field "height"
  end repeat
  hide background button "cm"
  show background button "in"

end mouseUp



-- part 53 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=293 top=315 right=342 bottom=360
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit data
----- HyperTalk script -----
on mouseUp
  set lockText of field "date" to false
  set lockText of field "age" to false
  set lockText of field "weight" to false
  set lockText of field "height" to false
  set lockText of field "bone ages" to false
  set lockText of field "Phallus Size" to false
  set lockText of field "Testes Volume" to false
  set lockText of field "Pubic Hair" to false
  set lockText of field "Breasts" to false
  hide background button "Edit data"
  show background button "Lock data"
end mouseUp



-- part 54 (button)
-- low flags: 80
-- high flags: A002
-- rect: left=293 top=315 right=342 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Lock data
----- HyperTalk script -----
on mouseUp
  set lockText of field "date" to true
  set lockText of field "age" to true
  set lockText of field "weight" to true
  set lockText of field "height" to true
  set lockText of field "bone ages" to true
  set lockText of field "Phallus Size" to true
  set lockText of field "Testes Volume" to true
  set lockText of field "Pubic Hair" to true
  set lockText of field "Breasts" to true
  hide background button "Lock data"
  show background button "Edit data"

end mouseUp



-- part 55 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=3 top=277 right=294 bottom=68
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: enter date


-- part 56 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=139 top=276 right=294 bottom=193
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: enter weight


-- part 57 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=199 top=276 right=294 bottom=253
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: enter height


-- part 58 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=260 top=276 right=294 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: enter bone age


-- part 59 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=165 top=315 right=342 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Enter data
----- HyperTalk script -----
on mouseUp
  get the location of field "enter date"
  put field "birth date" into birthdate
  click at it
  if field "enter date" is empty then
    answer "Enter the date and growth data!" with "OK"
  else
    put the number of lines of field "date" into linumber
    put (linumber-15) into setscroll

    if setscroll>0 then
      set scroll of field "date" to setscroll*13
    end if
    get the scroll of field "date"
    goalign
    get field "enter date"
    convert it to short date
    put it into line (linumber+1) of field "date"

    convert birthdate to seconds
    convert it to seconds
    subtract birthdate from it
    divide it by (365.25*24*6*6)
    put round(it) into age
    divide age by (100)
    put age into line (linumber+1) of field "age"

    put field "enter weight" into line (linumber+1) of field "weight"
    put field "enter height" into line (linumber+1) of field "height"
    put field "enter bone age" into line (linumber+1) of field "bone ages"
    put field "eBreasts" into line(linumber+1) of field "Breasts"
    put field "ePubic Hair" into line(linumber+1) of field "Pubic Hair"
    if field "sex" is "f" and field "Testes" is not empty then
      answer "Females usually do not have testes" with "OK"
      put empty into field "testes"
    end if
    put field "Testes" into line(linumber+1) of field "Testes Volume"
    put field "ePhallus Size" into line(linumber+1) of field "Phallus Size"
    put empty into field "enter date"
    put empty into field "enter weight"
    put empty into field "enter height"
    put empty into field "enter bone age"
    put empty into field "eBreasts"
    put empty into field "ePubic Hair"
    put empty into field "Testes"
    put empty into field "ePhallus Size"

    get the location of field "enter date"
    click at it
  end if


end mouseUp



-- part 60 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=92 top=315 right=342 bottom=166
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Functions
----- HyperTalk script -----
on mousedown
  global identification, ages, plotdata, currentfield
  put the mouseloc into myPlace
  put item 1 of myPlace - 13 into horiz
  put item 2 of myPlace - 150 into vert
  put "Plot Data;Calculate Ages;Calculate Height Velocity;Show velocity time interval;Height Z Scores;Height Velocity Z Scores;Height age; ∂ height age over ∂ bone age;Report" into menufunc
  get PopUpMenu(menufunc, 1, vert, horiz)
  put field "name" && field "hospital number" into identification
  put it into Menuitem

  if menuitem is 1 then

    get the number of lines in field "age"
    put it into ages
    get field "sex"
    if it is empty then
      ask "what is the sex of this patient (m or f)?"
      put it into field "sex"
    end if
    put "true" into plotdata
    if it is "m" then
      go to card "Male plot"
    end if
    if it is "f" then
      go to card "Female plot"
    end if
  end if

  if menuitem is 2 then
    put number of lines in field "date" into maxdate
    repeat with i = 1 to maxdate
      put line i of field "date" into temp
      if temp is not empty then
        convert temp to short date
        put temp into line i of field "date"
      end if
      put field "birth date" into birthdate
      if temp is not empty then
        convert birthdate to seconds
        convert temp to seconds
        subtract birthdate from temp
        divide temp by (365.25*24*6*6)
        put round(temp) into age
        divide age by (100)
        put age into line i of field "age"
      end if
    end repeat
  end if

  if menuitem is 3 then
    hide field currentfield
    put "growth velocity" into currentfield
    put currentfield into field "title"
    show field currentfield
    put empty into field "growth velocity"

    put the number of lines of field "date" into number
    set the numberformat to "0.##"
    put (field "minimum interval"/12) && "yrs" into field "yrs conversion"
    if field "minimum interval" < 1 then
      repeat with i=1 to (number-1)
        if line i of field "height" is empty then next repeat
        put (i+1) into steps
        repeat with j=steps to number
          if line j of field "height" is empty then next repeat
          put ((line(j) of field "height")- (line i of field "height")) into deltaheight
          put ((line(j) of field "age")- (line i of field "age")) into deltaage
          put (deltaheight/deltaage) into line (j) of field "growth velocity"
          if (line (j) of field "height") is not empty then exit repeat
        end repeat
      end repeat

    else

      repeat with i = number down to 1
        if line i of field "height" is empty then next repeat
        put line i of field "age" into topage

        put (number-(number-i)-1) into start
        repeat with j= start down to 1
          if line j of field "height" is empty then next repeat
          put line j of field "age" into nextage
          put (topage-nextage) into deltaage
          if deltaage < (field "minimum interval"/12) then next repeat

          put ((line i of field "height")- (line j of field "height")) into deltaheight
          put (deltaheight/deltaage) into line (i) of field "growth velocity"
          exit repeat

        end repeat
      end repeat
    end if
  end if

  if menuitem is 4 then
    show field "minimum interval"
    put "months" into field "interval title"
    show field "interval title"
    show background button "ok"
    show field "yrs conversion"
  end if

  if menuitem >4 then
    answer "Not implemented at this time!" with "OK"
  end if


end mousedown


-- part 61 (button)
-- low flags: 00
-- high flags: 8002
-- rect: left=58 top=315 right=342 bottom=93
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Files
----- HyperTalk script -----
on mousedown
  global identification, plotdata
  put the mouseloc into myPlace
  put item 1 of myPlace - 13 into horiz
  put item 2 of myPlace - 125 into vert
  put "Patient Index;Patient Medicines;Growth Patterns;Find what?;Align data lines;Go to male charts;Go to female charts" into menufunc
  get PopUpMenu(Menufunc, 1, vert, horiz)
  put field "name" && field "hospital number" into identification
  put it into Menuitem

  if menuitem is 3 then
    go to card id 5522
  end if

  if menuitem is 1 then
    visual effect barn door close slow
    go "Patient names"
  end if

  if menuitem is 2 then
    Answer "Not available for this copy"
  end if

  if menuitem is 4 then
    ask "What do you want to find?"
    find it
    if it is "OK" then
      doMenu "Find..."
    end if
  end if

  if menuitem is 5 then
    goalign
  end if

  if menuitem is 6 then
    put "false" into plotdata
    go to card "Male plot"
  end if

  if menuitem is 7 then
    put "false" into plotdata
    go to card "Female plot"
  end if
end mousedown



-- part 62 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=325 top=276 right=292 bottom=368
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: eBreasts


-- part 63 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=371 top=276 right=292 bottom=414
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ePubic Hair


-- part 64 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=417 top=276 right=292 bottom=460
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: Testes


-- part 65 (field)
-- low flags: 00
-- high flags: 4000
-- rect: left=463 top=276 right=292 bottom=506
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 20
-- text size: 12
-- style flags: 256
-- line height: 16
-- part name: ePhallus Size


-- part 66 (button)
-- low flags: 00
-- high flags: A002
-- rect: left=359 top=315 right=342 bottom=435
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Other data
----- HyperTalk script -----
on mouseDown
  global currentfield
  put the mouseloc into myPlace
  put item 1 of myPlace - 25 into horiz
  put item 2 of myPlace - 85 into vert
  put "Bone Ages;Breast Maturation;Pubic Hair;Testes Size;Phallus Size" into menufunc
  get PopUpMenu(Menufunc, 1, vert, horiz)
  put it into menuitem


  if menuitem is 1 then
    hide field currentfield
    put "bone ages" into currentfield
    put currentfield into field "title"
    show field currentfield
  end if

  if menuitem is 2 then
    hide field currentfield
    put "Breasts" into currentfield
    put currentfield into field "title"
    show field currentfield
  end if

  if menuitem is 3 then
    hide field currentfield
    put "Pubic Hair" into currentfield
    put currentfield into field "title"
    show field currentfield
  end if

  if menuitem is 4 then
    hide field currentfield
    put "Testes Volume" into currentfield
    put currentfield into field "title"
    show field currentfield
  end if

  if menuitem is 5 then
    hide field currentfield
    put "Phallus Size" into currentfield
    put currentfield into field "title"
    show field currentfield
  end if


end mouseDown



-- part 67 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: Breasts


-- part 68 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: Pubic Hair


-- part 69 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: Testes Volume


-- part 70 (field)
-- low flags: 81
-- high flags: 4007
-- rect: left=260 top=49 right=258 bottom=314
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 20
-- text size: 10
-- style flags: 1024
-- line height: 13
-- part name: Phallus Size


-- part 74 (field)
-- low flags: 80
-- high flags: 0000
-- rect: left=148 top=299 right=315 bottom=242
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: units